home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / Editor / ced.mod next >
Encoding:
Text File  |  2000-03-19  |  4.8 KB  |  164 lines
  1. /* $VER: HTMLEXT Modul: ced.mod Rev.005 © by Juan Manuel Wehrli 2000
  2.  */
  3.  
  4. PARSE ARG Befehl Option
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS COMMAND
  8. if Befehl = RELOADAWEB then do
  9.     preview = 't:htmlext/preview.htm'
  10.     address CYGNUSED
  11.     STATUS FILENAME
  12.     DOC = RESULT
  13.     save
  14.     if show('P','AWEB.1') then do
  15.         address "AWEB.1"
  16.         if open('f',preview,'w') then do
  17.             call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  18.             call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  19.             call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  20.             call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  21.             call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  22.             call writeln('f','<FRAME NAME="frmain" SRC="file://localhost/htmlext:data/preview/blank.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  23.             call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  24.             call close('f')
  25.             'OPEN URL "file://localhost/' || preview || '"'
  26.             'OPEN RELOAD URL "file://localhost/' || DOC || '" TARGET "htprev"'
  27.         end
  28.     end
  29. end
  30.  
  31. if Befehl = RELOADIBROWSE then do
  32.     preview = 't:htmlext/preview.htm'
  33.     address CYGNUSED
  34.     STATUS FILENAME
  35.     DOC = RESULT
  36.     save
  37.     if show('P','IBROWSE') then do
  38.         address "IBROWSE"
  39.         if open('f',preview,'w') then do
  40.             call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  41.             call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  42.             call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  43.             call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  44.             call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  45.             call writeln('f','<FRAME NAME="frmain" SRC="file://localhost/' || DOC || '" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  46.             call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  47.             call close('f')
  48.             'GOTOURL RELOAD "file://localhost/' || preview || '"'
  49.         end
  50.     end
  51. end
  52.  
  53. if Befehl = RELOADVOYAGER then do
  54.     preview = 't:htmlext/preview.htm'
  55.     address CYGNUSED
  56.     STATUS FILENAME
  57.     DOC = RESULT
  58.     save
  59.     if show('P','VOYAGER') then do
  60.         address "VOYAGER"
  61.         if open('f',preview,'w') then do
  62.             call writeln('f','<HTML><HEAD><TITLE>HTMLEXT Preview</TITLE></HEAD>')
  63.             call writeln('f','<FRAMESET ROWS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  64.             call writeln('f','<FRAME NAME="fstop" SRC="file://localhost/htmlext:data/preview/metertoppx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  65.             call writeln('f','<FRAMESET COLS=20,* FRAMEBORDER="0" BORDER="0" FRAMESPACING=0>')
  66.             call writeln('f','<FRAME NAME="fsleft" SRC="file://localhost/htmlext:data/preview/meterleftpx.htm" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=NO NORESIZE>')
  67.             call writeln('f','<FRAME NAME="frmain" SRC="file://localhost/' || DOC || '" MARGINHEIGHT=0 MARGINWIDTH=0 SCROLLING=AUTO NORESIZE>')
  68.             call writeln('f','</FRAMESET></FRAMESET><BODY></BODY></HTML>')
  69.             call close('f')
  70.             'OPENURL "file://localhost/' || DOC || '"'
  71.         end
  72.     end
  73. end
  74.  
  75. if Befehl = QUIT then do
  76.     do while show('P',"CYGNUSED")
  77.         ADDRESS CYGNUSED QUIT 1
  78.     end
  79. end
  80.  
  81. if Befehl = OPEN then do
  82.     if ~show('P',"CYGNUSED") then do
  83.         'run <>NIL: ced'
  84.             "sys:rexxc/WaitForPort CYGNUSED"
  85.     end
  86.     ADDRESS CYGNUSED 'OPEN 'Option
  87. end
  88.  
  89. if Befehl = OPENNEW then do
  90.     if ~show('P',"CYGNUSED") then do
  91.         'run <>NIL: ced'
  92.             "sys:rexxc/WaitForPort CYGNUSED"
  93.         ADDRESS CYGNUSED
  94.         OPEN Option
  95.         exit
  96.     end
  97.     ADDRESS CYGNUSED
  98.     OPEN NEW
  99.     'OPEN 'Option
  100. end
  101.  
  102. if Befehl = BLOCKSAVE then do
  103.     if show('P',"CYGNUSED") then do
  104.         ADDRESS CYGNUSED
  105.         COPY
  106.         'SAVE CLIP AS ' || Option || ' 1'
  107.     end
  108. end
  109.  
  110. if Befehl = ICONIFY then do
  111.     do while show('P',"CYGNUSED")
  112.         ADDRESS CYGNUSED QUIT 1
  113.     end
  114. end
  115.  
  116. /*
  117. if Befehl = UNICONIFY then do
  118. end
  119. */
  120.  
  121. if Befehl = INSERT then do
  122.     if show('P',"CYGNUSED") then do
  123.         ADDRESS CYGNUSED
  124.         'INCLUDE FILE ' || Option
  125.     end
  126. end
  127.  
  128. if Befehl = PASTE then do
  129.     if show('P',"CYGNUSED") then do
  130.         ADDRESS CYGNUSED
  131.         'INCLUDE FILE ' || Option
  132.     end
  133. end
  134.  
  135. if Befehl = FIND then do
  136.     if show('P',"CYGNUSED") then do
  137.         ADDRESS CYGNUSED
  138.         'SEARCH FOR ' || Option || ' u w'
  139.     end
  140. end
  141.  
  142. if Befehl = MFIND then do
  143.     if open("f","t:htmlext.find",r) then do
  144.         do while ~EOF("f")
  145.             file = readln("f")
  146.             if ~show('P',"CYGNUSED") then do
  147.                 'ced 'file
  148.             end
  149.             else do
  150.                 ADDRESS CYGNUSED
  151.                 OPEN NEW
  152.                 'OPEN ' || file
  153.             end
  154.             ADDRESS CYGNUSED
  155.             'SEARCH FOR ' || Option || ' u w'
  156.             ADDRESS COMMAND
  157.             'wait 1'
  158.         end
  159.         call close("f")
  160.         'delete t:htmlext.find >NIL:'
  161.     end
  162. end
  163.  
  164.